What PC? 1998 July/WPCJUL98.ISO/DXRS/BUYERS07.DXR/acrobat loader_43_call PDF file tool shape and script.ls

Text File | 1998-05-11 | 4.7 KB | 189 lines

on mouseUp
  global frameThatCalledPDFReview, pdfFileName
  set pdfFileName to getPDFFileName()
  put "PDF filename = " & pdfFileName
  set frameThatCalledPDFReview to the frame
  checkForAcrobat()
end

on checkForAcrobat
  global runAcrobatWithoutPrompting, DriveLtr, theApp, pdfFileName, frameThatCalledPDFReview
  set acrobatloaded to checkifacroloaded()
  put "Acrobat loaded = " && acrobatloaded
  case acrobatloaded of
    "TRUE":
      if runAcrobatWithoutPrompting = 1 then
        open(DriveLtr & pdfFileName, theApp)
        go(frameThatCalledPDFReview)
      else
        go("WarningRunAcrobat")
      end if
    "FALSE":
      go("WarningAcroNotFound")
    "DifferentPath":
      go("WarningBrowse")
    otherwise:
      go("WarningBrowse")
  end case
end

on getPDFFileName
  global databaseProperties
  set dir9709 to [19, 116]
  set dir9711 to [19, 140, 156]
  set dir9712 to [19, 84, 106, 128, 146]
  set dir9801 to [21, 76, 96, 120, 144]
  set dir9802 to [21, 68, 90, 114]
  set dir9803 to [17, 62, 84, 106, 124]
  set dir9804 to [21, 78, 86, 104]
  set dir9805 to [23, 86, 94, 104]
  set reviewDate to getProp(databaseProperties, #dateOfReview)
  set reviewPage to getProp(databaseProperties, #pageOfReview)
  set year to word 2 of reviewDate
  set month to word 1 of reviewDate
  if the number of chars in month = 1 then
    set month to "0" & month
  end if
  set date_dir to year & month
  put "reviewDate=" & reviewDate
  put "date_dir=" & date_dir
  set reviewPage to 0 + reviewPage
  case date_dir of
    "9709":
      if reviewPage >= 116 then
        set page_dir to 116
      else
        set page_dir to 19
      end if
    "9711":
      if reviewPage >= 156 then
        set page_dir to 156
      else
        if reviewPage >= 140 then
          set page_dir to 140
        else
          if reviewPage >= 19 then
            set page_dir to 19
          end if
        end if
      end if
    "9712":
      if reviewPage >= 146 then
        set page_dir to 146
      else
        if reviewPage >= 128 then
          set page_dir to 128
        else
          if reviewPage >= 106 then
            set page_dir to 106
          else
            if reviewPage >= 84 then
              set page_dir to 84
            else
              if reviewPage >= 19 then
                set page_dir to 19
              end if
            end if
          end if
        end if
      end if
    "9801":
      if reviewPage >= 144 then
        set page_dir to 144
      else
        if reviewPage >= 120 then
          set page_dir to 120
        else
          if reviewPage >= 96 then
            set page_dir to 96
          else
            if reviewPage >= 76 then
              set page_dir to 76
            else
              if reviewPage >= 21 then
                set page_dir to 21
              end if
            end if
          end if
        end if
      end if
    "9802":
      if reviewPage >= 114 then
        set page_dir to 114
      else
        if reviewPage >= 90 then
          set page_dir to 90
        else
          if reviewPage >= 68 then
            set page_dir to 68
          else
            if reviewPage >= 21 then
              set page_dir to 21
            end if
          end if
        end if
      end if
    "9803":
      if reviewPage >= 124 then
        set page_dir to 124
      else
        if reviewPage >= 106 then
          set page_dir to 106
        else
          if reviewPage >= 84 then
            set page_dir to 84
          else
            if reviewPage >= 62 then
              set page_dir to 62
            else
              if reviewPage >= 17 then
                set page_dir to 17
              end if
            end if
          end if
        end if
      end if
    "9804":
      if reviewPage >= 104 then
        set page_dir to 104
      else
        if reviewPage >= 86 then
          set page_dir to 86
        else
          if reviewPage >= 78 then
            set page_dir to 78
          else
            if reviewPage >= 21 then
              set page_dir to 21
            end if
          end if
        end if
      end if
    "9805":
      put "reviewpage" && reviewPage
      if reviewPage >= 104 then
        set page_dir to 104
      else
        if reviewPage >= 94 then
          set page_dir to 94
        else
          if reviewPage >= 86 then
            set page_dir to 86
          else
            if reviewPage >= 23 then
              set page_dir to 23
            end if
          end if
        end if
      end if
  end case
  if reviewPage < 100 then
    set page_dir to "0" & page_dir
  else
    set page_dir to EMPTY & page_dir
  end if
  set pdfFileName to "\acrofile\reviews\" & date_dir & "\wpc" & page_dir & ".pdf"
  put pdfFileName
  return pdfFileName
end